home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / ml programming (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  780 b   |  26 lines
  1. 5 print"[147][144]":poke53280,12:poke53281,12
  2. 100 data 169,0,133,144,162,1,32,198,255,169,0,141,1,35
  3. 110 data 169,0,141,2,35,165,144,208,89,32,228,255
  4. 120 data 201,13,208,54,32,210,255,238,1,35,173,1,35
  5. 130 data 201,22,144,227,160,0,185,116,32,32,210,255
  6. 140 data 200,192,6,208,245,32,204,255,32,228,255
  7. 150 data 201,0,240,249,201,81,240,45,160,0,169,20
  8. 160 data 32,210,255,200,192,6,208,248,240,176,168,41,127
  9. 170 data 201,32,176,2,160,46,152,172,2,35,204,0
  10. 180 data 35,176,6,238,2,35,32,210,255,208,165,240,163,32,204,255,96
  11. 190 data 60,77,79,82,69,62
  12. 200 for j=8192 to 8313
  13. 210 read x:t=t+x
  14. 220 poke j,x
  15. 230 next j
  16. 240 if t<>15477 then stop
  17. 500 print chr$(14):print chr$(157);:l0=pos(0):print:poke 8960,l0
  18. 505 print"[147][205]ore: [212]ext [198]ile [210]eader"
  19. 510 input "[206]ame of file";f$
  20. 520 open 15,8,15
  21. 530 open 1,8,3,f$
  22. 540 input#15,e,e$,e1,e2:if e<>0 then print e$;e1;e2:stop
  23. 550 sys 8192
  24. 560 close 1
  25. 570 close 15
  26.